(Fx_create_frame): Signal an error if no font is found (Bug#2147).

diff --git a/src/xfns.c b/src/xfns.c
index 4be3d1df6640f806555d63cfc1488b8f7a94bba7..f1df3c27d0de7721f2ffce6eca2b6260a7212ebc 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3307,6 +3307,11 @@ This function is an internal primitive--use `make-frame' instead.  */)
   /* Extract the window parameters from the supplied values
      that are needed to determine window geometry.  */
   x_default_font_parameter (f, parms);
+  if (!FRAME_FONT (f))
+    {
+      delete_frame (frame, Qnoelisp);
+      error ("Invalid frame font");
+    }
 
 #ifdef USE_LUCID
   /* Prevent lwlib/xlwmenu.c from crashing because of a bug